'(THIS IS THE UNFASL FOR ((DSK (LSP RPG)) MULTL /24)) 
'(ASSEMBLED BY FASLAP /392) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117) 

;COMPILED ON SEPTEMBER 4, 1984, AT 9:12 AM

;Loading DEFSTRUCT 280
;Loading DEFSETF 94
;Warning!  Incompatibly redefining the structure SETF
;  Methods will not be preserved in the newly-created class.
'QUEUE 
	(COMMENT **FASL** 0. (LAP QUEUE-HEAD SUBR)) 
	(COMMENT **FASL** 3. (LAP QUEUE-TAIL SUBR)) 
	(COMMENT **FASL** 6. (LAP NEXT-QUEUE SUBR)) 
	(COMMENT **FASL** 8. (LAP EMPTY-QUEUE-P SUBR)) 
	(COMMENT **FASL** 19. (LAP ADD-QUEUE SUBR)) 
	(COMMENT **FASL** 43. (LAP GET-QUEUE SUBR)) 
	(COMMENT **FASL** 55. (LAP REMOVE-QUEUE SUBR)) 
	(COMMENT **FASL** 118. (LAP REMOVE-HEAD-QUEUE SUBR)) 
	(COMMENT **FASL** 136. (LAP M-FLUSH-TOP-ARG-STACK SUBR)) 
'MACHINE 
'PROCESSOR 
'VALUE-DEST 
'JOB 
'RETURN-MESSAGE 
'JOB-CLOSURE 
	(COMMENT **FASL** 142. (LAP M-RESTORE-VALUEP SUBR)) 
'UNWIND-PROTECT-WAITER 
'UNWIND-PROTECT-CLEANUP 
'CATCH-RECORD 
	(COMMENT **FASL** 149. (LAP KILL-ALL-CLOSURE-JOBS SUBR)) 
	(COMMENT **FASL** 205. (LAP DELETE-EM-ALL SUBR)) 
	(COMMENT **FASL** 251. (LAP CURRENT-LOAD SUBR)) 
'METER 
	(COMMENT **FASL** 275. (LAP REPORT SUBR)) 
	(COMMENT **FASL** 449. (LAP RECENT-VAR-MEMQ SUBR)) 
	(COMMENT **FASL** 471. (LAP REPORT-LOAD-HISTORY SUBR)) 
	(COMMENT **FASL** 563. (LAP ROUND-FUN SUBR)) 
	(COMMENT **FASL** 575. (LAP STANDARD-DEVIATION SUBR)) 
	(COMMENT **FASL** 615. (LAP MULTI-PROCESS SUBR)) 
	(COMMENT **FASL** 769. (LAP PROCESS-JOB SUBR)) 
	(COMMENT **FASL** 1043. (LAP RETURN-MESSAGE SUBR)) 
	(COMMENT **FASL** 1090. (LAP MULTI-SCHEDULE SUBR)) 
	(COMMENT **FASL** 1106. (LAP MULTI-SCHEDULE-ONE SUBR)) 
	(COMMENT **FASL** 1164. (LAP RUN SUBR)) 
	(COMMENT **FASL** 1217. (LAP NOW SUBR)) 
	(COMMENT **FASL** 1219. (LAP M-ASSIGN SUBR)) 
	(COMMENT **FASL** 1294. (LAP M-LOOKUP-1 SUBR)) 
	(COMMENT **FASL** 1318. (LAP M-ADD-ENV SUBR)) 
	(COMMENT **FASL** 1323. (LAP M-ADD-ENV-1 SUBR)) 
	(COMMENT **FASL** 1327. (LAP M-SYMEVAL SUBR)) 
	(COMMENT **FASL** 1367. (LAP M-SYMEVAL-1 SUBR)) 
	(COMMENT **FASL** 1371. (LAP M-SYMEVAL-2 SUBR)) 
	(COMMENT **FASL** 1375. (LAP M-EVAL SUBR)) 
	(COMMENT **FASL** 1742. (LAP M-EVAL-2 SUBR)) 
	(COMMENT **FASL** 1753. (LAP M-PROGNIFY SUBR)) 
	(COMMENT **FASL** 1762. (LAP M-FUNCALL SUBR)) 
	(COMMENT **FASL** 1818. (LAP M-EVAL-LABELS SUBR)) 
	(COMMENT **FASL** 1898. (LAP M-QLAMBDA SUBR)) 
	(COMMENT **FASL** 1955. (LAP M-RESTORE-LOCK SUBR)) 
	(COMMENT **FASL** 1982. (LAP M-SET-LOCK SUBR)) 
	(COMMENT **FASL** 1987. (LAP M-EXPAND-CASEQ SUBR)) 
	(COMMENT **FASL** 2066. (LAP SETQ M-SUBR)) 
	(COMMENT **FASL** 2084. (LAP LAMBDA M-SUBR)) 
	(COMMENT **FASL** 2093. (LAP QLAMBDA M-SUBR)) 
	(COMMENT **FASL** 2117. (LAP COND M-SUBR)) 
	(COMMENT **FASL** 2140. (LAP PROGN M-SUBR)) 
	(COMMENT **FASL** 2155. (LAP OR M-SUBR)) 
	(COMMENT **FASL** 2178. (LAP AND M-SUBR)) 
	(COMMENT **FASL** 2201. (LAP NOT M-SUBR)) 
	(COMMENT **FASL** 2219. (LAP DO M-SUBR)) 
	(COMMENT **FASL** 2334. (LAP RETURN M-SUBR)) 
	(COMMENT **FASL** 2352. (LAP CATCH M-SUBR)) 
	(COMMENT **FASL** 2385. (LAP QCATCH M-SUBR)) 
	(COMMENT **FASL** 2421. (LAP THROW M-SUBR)) 
	(COMMENT **FASL** 2448. (LAP UNWIND-PROTECT M-SUBR)) 
	(COMMENT **FASL** 2502. (LAP QLET M-SUBR)) 
	(COMMENT **FASL** 2586. (LAP LM-LET M-SUBR)) 
	(COMMENT **FASL** 2642. (LAP FUNCALL M-SUBR)) 
(COMMENT ****  (EXPR) Unused LAMBDA variables in function M-EVAL)
	(COMMENT **FASL** 2670. (LAP M-EVAL M-SUBR)) 
	(COMMENT **FASL** 2682. (LAP LABELS M-SUBR)) 
(COMMENT ****  (EXPR) Unused LAMBDA variables in function CASEQ)
	(COMMENT **FASL** 2683. (LAP CASEQ M-SUBR)) 
	(COMMENT **FASL** 2691. (LAP IF-LOCKP M-SUBR)) 
	(COMMENT **FASL** 2715. (LAP IF-NAMED-LOCKP M-SUBR)) 
	(COMMENT **FASL** 2751. (LAP M-APPLY SUBR)) 
	(COMMENT **FASL** 2832. (LAP M-APPLY2 SUBR)) 
	(COMMENT **FASL** 2845. (LAP M-APPLY1 SUBR)) 
	(COMMENT **FASL** 3307. (LAP M-LISP-CALL SUBR)) 
	(COMMENT **FASL** 3345. (LAP M-RESTORE-ENV SUBR)) 
	(COMMENT **FASL** 3352. (LAP M-RESTORE-CATCH-THREAD SUBR)) 
	(COMMENT **FASL** 3359. (LAP M-RESTORE-CATCH-THREAD-1 SUBR)) 
	(COMMENT **FASL** 3366. (LAP M-STASH-ARG SUBR)) 
	(COMMENT **FASL** 3375. (LAP M-SLEEP SUBR)) 
	(COMMENT **FASL** 3382. (LAP M-DELAY SUBR)) 
	(COMMENT **FASL** 3408. (LAP M-ADD-CATCH-THREADS SUBR)) 
	(COMMENT **FASL** 3427. (LAP M-ADD-UNWIND-PROTECTS SUBR)) 
	(COMMENT **FASL** 3479. (LAP M-EVCOND SUBR)) 
	(COMMENT **FASL** 3556. (LAP M-EVOR SUBR)) 
	(COMMENT **FASL** 3599. (LAP M-EVAND SUBR)) 
	(COMMENT **FASL** 3642. (LAP M-EVNOT SUBR)) 
	(COMMENT **FASL** 3654. (LAP M-EVPROGN SUBR)) 
	(COMMENT **FASL** 3690. (LAP M-EVPROGN-1 SUBR)) 
	(COMMENT **FASL** 3727. (LAP M-EVSETQ SUBR)) 
	(COMMENT **FASL** 3773. (LAP M-ASSIGN-1 SUBR)) 
	(COMMENT **FASL** 3780. (LAP M-ASSIGN-2 SUBR)) 
	(COMMENT **FASL** 3788. (LAP M-EVQLAMBDA SUBR)) 
	(COMMENT **FASL** 3892. (LAP M-EAGER-EVQLAMBDA SUBR)) 
	(COMMENT **FASL** 4026. (LAP M-QLET-APPLY SUBR)) 
	(COMMENT **FASL** 4271. (LAP M-QCLOSURE-APPLY SUBR)) 
	(COMMENT **FASL** 4504. (LAP M-WAIT-FOR-QLET-MESSAGES SUBR)) 
	(COMMENT **FASL** 4631. (LAP M-WAIT-FOR-MESSAGES SUBR)) 
	(COMMENT **FASL** 4750. (LAP M-WAIT-CLOSURE SUBR)) 
	(COMMENT **FASL** 4816. (LAP M-NULL-WAIT SUBR)) 
	(COMMENT **FASL** 4818. (LAP M-CLOSURE-WAITER SUBR)) 
	(COMMENT **FASL** 4872. (LAP M-QCATCH-WAITER SUBR)) 
	(COMMENT **FASL** 4894. (LAP M-WAIT-FOR-EAGER-VALUE SUBR)) 
	(COMMENT **FASL** 4902. (LAP M-WAIT-FOR-EAGER-CELL SUBR)) 
	(COMMENT **FASL** 4914. (LAP M-WAIT-VALUE-DEST SUBR)) 
	(COMMENT **FASL** 4924. (LAP SUSPEND-PROCESS LSUBR)) 
	(COMMENT **FASL** 4990. (LAP RESUME-PROCESS SUBR)) 
	(COMMENT **FASL** 5027. (LAP NO-RETURN-VALUE SUBR)) 
	(COMMENT **FASL** 5032. (LAP M-UNWIND-PROTECT-SIGNAL-DONE SUBR)) 
	(COMMENT **FASL** 5044. (LAP M-UNWIND-PROTECT-WAITER SUBR)) 
	(COMMENT **FASL** 5080. (LAP M-CATCH SUBR)) 
	(COMMENT **FASL** 5110. (LAP M-QCATCH SUBR)) 
	(COMMENT **FASL** 5122. (LAP M-THROW SUBR)) 
	(COMMENT **FASL** 5264. (LAP M-DO-UNWIND-PROTECT-CLEANUPS SUBR)) 
	(COMMENT **FASL** 5368. (LAP M-DO-ASSIGN SUBR)) 
	(COMMENT **FASL** 5397. (LAP M-DO-ASSIGN-1 SUBR)) 
	(COMMENT **FASL** 5426. (LAP M-DO-TEST SUBR)) 
	(COMMENT **FASL** 5472. (LAP M-DO-STEP SUBR)) 
	(COMMENT **FASL** 5500. (LAP M-DO-STEP-1 SUBR)) 
	(COMMENT **FASL** 5528. (LAP M-DEFUN FSUBR)) 
	(COMMENT **FASL** 5549. (LAP M-QDEFUN FSUBR)) 
	(COMMENT **FASL** 5577. (LAP ALLOCATE SUBR)) 
	(COMMENT **FASL** 5599. (LAP DE-ALLOCATE SUBR)) 
	(COMMENT **FASL** 5641. (LAP ≤ SUBR)) 
	(COMMENT **FASL** 5650. (LAP ≥ SUBR)) 
	(COMMENT **FASL** 5659. (LAP AREF-1 SUBR)) 
	(COMMENT **FASL** 5666. (LAP ASET-1 SUBR)) 
	(COMMENT **FASL** 5677. (LAP MAKE-ARRAY-1 SUBR)) 
	(COMMENT **FASL** 5688. (LAP |AREF-1 SETF-X-ACCESS| SUBR)) 
	(COMMENT **FASL** 5696. (LAP |AREF-1 SETF-X-INVERT| SUBR)) 
	(COMMENT **FASL** 5713. (LAP |AREF-1 SETF-X| SUBR)) 
	(COMMENT **FASL** 5738. (LAP AREF-2 SUBR)) 
	(COMMENT **FASL** 5749. (LAP ASET-2 SUBR)) 
	(COMMENT **FASL** 5764. (LAP MAKE-ARRAY-2 SUBR)) 
	(COMMENT **FASL** 5777. (LAP |AREF-2 SETF-X-ACCESS| SUBR)) 
	(COMMENT **FASL** 5788. (LAP |AREF-2 SETF-X-INVERT| SUBR)) 
	(COMMENT **FASL** 5808. (LAP |AREF-2 SETF-X| SUBR)) 
	(COMMENT **FASL** 5837. (LAP AREF-3 SUBR)) 
	(COMMENT **FASL** 5851. (LAP ASET-3 SUBR)) 
	(COMMENT **FASL** 5869. (LAP MAKE-ARRAY-3 SUBR)) 
	(COMMENT **FASL** 5884. (LAP |AREF-3 SETF-X-ACCESS| SUBR)) 
	(COMMENT **FASL** 5898. (LAP |AREF-3 SETF-X-INVERT| LSUBR)) 
	(COMMENT **FASL** 5918. (LAP |AREF-3 SETF-X| SUBR)) 
	(COMMENT **FASL** 5953. (LAP |SPAWN MACRO| SUBR)) 
	(COMMENT **FASL** 5985. (LAP |WAIT MACRO| SUBR)) 
	(COMMENT **FASL** 6010. (LAP |NO-WAIT MACRO| SUBR)) 
	(COMMENT **FASL** 6036. (LAP |PIPELINE-PREVIOUS-INDEX MACRO| SUBR)) 
	(COMMENT **FASL** 6066. (LAP |PIPELINE-SETUP MACRO| SUBR)) 
	(COMMENT **FASL** 6173. (LAP |PIPELINE-PREVIOUS-LOCK MACRO| SUBR)) 
	(COMMENT **FASL** 6203. (LAP |PIPELINE-THIS-LOCK MACRO| SUBR)) 
	(COMMENT **FASL** 6230. (LAP |PIPELINE-RELEASE-PREVIOUS-LOCK MACRO| SUBR)) 
	(COMMENT **FASL** 6239. (LAP |GLOBAL-REF SETF-X-ACCESS| SUBR)) 
	(COMMENT **FASL** 6244. (LAP |GLOBAL-REF SETF-X-INVERT| SUBR)) 
	(COMMENT **FASL** 6260. (LAP |GLOBAL-REF SETF-X| SUBR)) 
	(COMMENT **FASL** 6279. (LAP |GLOBAL-REF MACRO| SUBR)) 
	(COMMENT **FASL** 6311. (LAP |GLOBAL-SET MACRO| SUBR)) 
	(COMMENT **FASL** 6350. (LAP |GO-STAGE MACRO| SUBR)) 
	(COMMENT **FASL** 6383. (LAP |PIPELINE MACRO| SUBR)) 
	(COMMENT **FASL** 6872. (LAP |GRID MACRO| SUBR)) 
	(COMMENT **FASL** 7010. (LAP |CALL-GRID MACRO| SUBR)) 
'LOCK 
	(COMMENT **FASL** 7083. (LAP CREATE-LOCK SUBR)) 
	(COMMENT **FASL** 7090. (LAP GET-LOCK SUBR)) 
	(COMMENT **FASL** 7129. (LAP GET-NAMED-LOCK SUBR)) 
	(COMMENT **FASL** 7199. (LAP M-WAIT-FOR-LOCK SUBR)) 
	(COMMENT **FASL** 7217. (LAP REMOVE-CORRECT-QUEUE-ELEMENT SUBR)) 
	(COMMENT **FASL** 7392. (LAP RELEASE-LOCK SUBR)) 
	(COMMENT **FASL** 7409. (LAP CLEAR-LOCK SUBR)) 
	(COMMENT **FASL** 7421. (LAP SET-LOCK-NAME SUBR)) 
	(COMMENT **FASL** 7428. (LAP M-IF-LOCKP SUBR)) 
	(COMMENT **FASL** 7477. (LAP M-IF-NAMED-LOCKP SUBR)) 
	(COMMENT **FASL** 7564. (LAP M-RELEASE-LOCK SUBR)) 
	(COMMENT **FASL** 7570. (LAP MAKE-MULTI-PROCESSOR SUBR)) 
	(COMMENT **FASL** 7613. (LAP EVAL-FORMS LSUBR)) 
	(COMMENT **FASL** 7676. (LAP EVAL-FORM SUBR)) 
	(COMMENT **FASL** 7720. (LAP PRINT-JOBS SUBR)) 
	(COMMENT **FASL** 7784. (LAP NUMBER-OF-JOBS SUBR)) 
	(COMMENT **FASL** 7826. (LAP MEVAL SUBR)) 
	(COMMENT **FASL** 7868. (LAP TOPLEVEL SUBR)) 
	(COMMENT **FASL** 7922. (LAP STARTUP LSUBR)) 
	(COMMENT **FASL** TOTAL =  7968. WORDS)